Public Class CPDATask : Inherits CTaskBase

    Private m_EmpCd As String
    Private m_PdaNo As String
    Private m_OrderCd As String
    Private m_ResultCd As String

    Private m_WindowManager As CMainWindowManager
    Private m_Hardware As CCasioDTX7

    Private m_SendLockObject As New Object

    Public Property SendLockObject() As Object
        Get
            Return m_SendLockObject
        End Get
        Set(ByVal value As Object)
            m_SendLockObject = value
        End Set
    End Property


    Public Property Hardware() As CCasioDTX7
        Get
            Return m_Hardware
        End Get
        Set(ByVal value As CCasioDTX7)
            m_Hardware = value
        End Set
    End Property

    Public Property WindowManager() As CMainWindowManager
        Get
            Return m_WindowManager
        End Get
        Set(ByVal value As CMainWindowManager)
            m_WindowManager = value
        End Set
    End Property

    Public Property EmpCd() As String
        Get
            Return m_EmpCd
        End Get
        Set(ByVal value As String)
            m_EmpCd = value
        End Set
    End Property

    Public Property PdaNo() As String
        Get
            Return m_PdaNo
        End Get
        Set(ByVal value As String)
            m_PdaNo = value
        End Set
    End Property
    Public Property OrderCd() As String
        Get
            Return m_OrderCd
        End Get
        Set(ByVal value As String)
            m_OrderCd = value
        End Set
    End Property
    Public Property ResultCd() As String
        Get
            Return m_ResultCd
        End Get
        Set(ByVal value As String)
            m_ResultCd = value
        End Set
    End Property

    Public Sub New(ByVal queue As CDataQueue)
        MyBase.New(queue)
    End Sub






End Class
